sub vg5000putcharbios(txpos as ubyte,typos as ubyte,tch as ubyte,tattr as ubyte):
  asm
    ld l,(ix+5)
    ld h,(ix+7)
    ld d,(ix+9)
    ld e,(ix+11)
    call $0092
    end asm
  end sub

